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V4.0-742 Page 1 
DISKSVMSMASTER:CPATCH.SRCIJPATSSV.B32;1 (1) 
MODULE PATSSV ( 


VARIANT EQL 1 
ADDRESSING_MODE (EXTERNAL = LONG_RELATIVE, NONEXTERNAL = LONG_RELATIVE), 


NT = ‘V04-000') = 
BEGIN 


LRAT 
' 


'* COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
is DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
'* ALL RIGHTS RESERVED. 


'® beg SOFTWARE IS FURNISHED nee’ A LICENSE AND MAY BE USED AND gh hd 
!* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH att ae HE 


; cL V 0 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
!* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


* 
« 
. 
+ 
® 
. 
+ 
. 
* 
- 
* 
'® TRANSFERRED. * 
« 
* 
® 
* 
* 
x 
* 
* 
’ 
. 


4 ; 

: 4 0 

3 5 0 

; 6 0 

: 7 1 

; 8 1 

; 9 1 

; Ww 1 

 H : 

; i§ 1 

; 14 1 

3 15 1 

ies 1 

iar 1 

we 1 

s 19 1 

3 } 

: 22 a) 2} ae pe INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
; 23 23.1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
: $e 9 $e : ie CORPORATION. 

; '® 

; 0026 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
3 e?7 0027 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

; «ee 0028 1 !* 

; @ 0029 1 !* 

: 3 QCO30 1 Eee eee EEE EERE 
: 1 0031 1! 

; 32 0032 1 ! FACILITY: PATCH 

; ww 0033 1! 

; | «(54 0034 1 !++ 

; $2 $4 : FUNCTIONAL DESCRIPTION: 

: 37 0037 1! CALLS TO STARLET OPERATING SYSTEM I/O SERVICES. INCLUDE 

; 3 sit ! ASSIGNMENT AND DEASSIGNMENT OF CHANNELS, READS, WRITES. 

: 40 0040 1 ! Version: v02-018 

; $$) 0041 1! 

; é2 O0t§ . 4 wreterys 

; 643 0045 1! or: ; 

: «646 0044 1! Carol Peters, 21 Sep 1976: Version 01 

s #9 0045 1! 

: 6 0046 1! Modified by: 

: 4 Boag : Kevin Pammett, 15-dec-77: Version 25 

3; «649 0049 1! v03-001 MTROO12 Mike Rhodes 16-Aug-1982 

; 50 0050 1! Modify file names to remove duplicate file name useage 

5 23 ith ' between code and require files. 

3 26 0083 1! v02-018 PCG0001 Peter G George 02-FEB-1981 

$ 2 Bee ' Add require statement for CIB$:PATDEF.REQ 

; % 0056 1! vO117 = CNHOO16 Chris Hume 4-0ct-1979 14:00 
; OF 0057 1! Fix PATSOUT_SYM_VAL to properly insert a leading zero where 


M15 
PATSSV 19=3007 128% 01:11:43 VAX-11 Bliss-32 V4.0-742 2 
v04-000 14-Sep-1984 12:52:48 DISKSVMSMASTER: CPATCH. SRCJPATSSV. B32, 79 fay 
: 8 0058 1! required to distinguish hex constants from symbels. This cures 
; 25 0059 1! several enenailes.” (BATMAT 32 02.26) r 
; & 0060 1! ; 
s 68) 0061 1 ! Revision History: 
co boos 7% 
; 0065 1! NO DATE PROGRAMMER PURPOSE 
3 64 0064 1 ' ar ™~ememm 37 —~—~«~«C i ee ee ee i a ee a cs 
; 0065 1! 
; 66 0066 1 ! 00 20-DEC-77 K.D. MORSE ADAPT VERSION 25 FOR PATCH. 
. ar 0067 1! O11 27=DEC-77 K.D. MORSE CHANGE PATSOUT_TYP_VAL CALLS TO 
; 68 0068 1! FORSCVT ... TO CALC PATS$GET_VALUE. 
; & 0069 1! Oe 2-JAN-78 K.D. MORSE ADD CHECKS FOR IMAGE WITH NO SYMBOLS. 
: 70 0070 1! #O 4-JAN-78 K.D. MORSE FOR OUTPUTTING COMPLEX NUMBERS, 
3 71 0071 1! SURROUND THEM IN Pg hh Ft AND 
Bea: 0072 1! REMOVE THE SPURIOUS QUOTES 
+4 73 007 1 2 AROUND THE COMMA. (26) 
; 0074 1! NO CHANG 
+ 0075 1! 04 28-FEB-78 K.D. MORSE NO CHANGES FOR 8-29 
; 76 0076 1! O5 02-MAR-78 K.D. MORSE NO CHANGES FOR 
$ 77 0077 1! 06 17-MAR-78 K.D. MORSE ADD CODE T OUTPUT A iad ly 0 
.) 22 0078 1! FOR NEGATIVE HEX NUMBER 
. 0079 1! PATSOUT_NUM vA. THE ce WAS 
s 60 0080 1! O DO TAIS IN PATSINS_DECODE 
; wa 0081 1! WAS INCORRECT AND INERPORE REMOVED. 
3 82 0082 1! 07 24-MAR-78 K.D. MORSE NO CHANGES FOR VE 32-34, 
b4 83 0083 1! O8 30-MAR-78 K.D. MORSE ADD ontspd en ta ARRAYS. 
; 0084 1! 09 O7-APR-78 K.D. MORSE ADD PAT$PV_TO_CS, AND CHANGE 
; 85 0085 1! PATSPRINT VBATA T6 USE IT (35). 
> 0086 1! OUT_SYM_VAL NOW CONSIDERS 
3 87 0087 1! DEFINE SYMBOLS (FOR EXACT 
: 0088 1! MATCHES ONLY) (36). 
. oe 0089 1! NO CHAN FO . 
; 90 0090 1! 10 25-APR-78 K.D. MORSE CONVERT TO NATIVE COMPILER. 
s 91 OO97T. 4 44 17-MAY-78 K.D. MORSE SHOW_MODU NOW SKIPS THE GLOBAL 
> 0092 1! MC. 738) 
3 93 0093 1! SHOW MODU PRINTS ERROR MESSAGE 
; 94 0094 1! IF TRERE IS DST. (39) 
s 95 0095 1! 12 #£«18-MAY-78 K.D. MORSE NO CHANGES FOR VERS 40-41 
; © 0096 1! #13 #£4213=JUN-78 K.D. MORSE ADD FAO COUNTS TO SIGNALS. 
: 97 0097 1! 14 27=JUN-78 K.D. MORSE ADD LEADING ZEROS FOR HEX 
s 0098 1! OUTPUT IN OUT_SYM_VAL. (42) 
:; 99 0099 1! 15 28-JUN-78 K.D. MORSE NO CHANGES FOR VERS 43-48. 
: 100 0100 1! 16 29=JUN-78 K.D. MORSE NO CHANGES FOR VERS 49. 
3; 101 0101 1! SHOW MODULE NOW PRINTS 
s 102 B108 1! ALL NUMBERS AS DECIMAL (50). 
3; 103 0103 1! NO CHANGES FOR VERS 51. 
: 104 0104 1! 
3; 105 0105 1 !-- 


; 


<v 
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! TABLE OF CONTENTS: 


=" 
oO 
~ 


FORWARD pOvI INE 


PATSOUT_NUM VAL : WOVALUE 
PATSOUT-SYM_VAL : NOVALUE, 
PATSSHOW_MODULE : NOVALUE, 


PATSSHOW-SCOPE : NOVALUE, 
PATSPRINT_PATH : NOVALUE: 


Output of numeric values. 
Actually write out a Line to tty 
Output values either in numeric 
or in symbolic form. ’ 

List off the module chain. 

Print out the current CSP. 

Print out a symbol pathname 


AT$PV_TO_CS : NOVALUE, Encode a pathvector into a buffer. 
PATSFAO POT : NOVALUE, Stuff output into current output buffer. 
PATSMODOLE ‘ Estimate the RST size of a module. 

$0 


Se Se Se Se ee Se Se Ss oe Se Be Se Se Se Se Se Se Se SH SH SH Se Seas 
— SS a Ss Ss SS ss Es Ss Ss ss SS SS SS SS 
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a ek ad td = 2 a 2s 8 as 8 ts ss 2 os 
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LIBRARY ‘SYSS$LIBRARY:LIB.L32'; 

REQUIRE 'SRC$:VXSMAC.REQ'; 
REQUIRE ‘LIBS:PATDEF.REQ'; ! Defines literals 
REQUIRE *LIB$:PATMSG.REQ'; 

REQUIRE ‘*SRC$:PATPCT.REQ'; 

REQUIRE ‘SRC$:PATGEN.REQ'; 

REQUIRE ‘SRC$:SYSLIT.REQ'; 

REQUIRE ‘SRC$:SYSSER.REQ';: 


SSS ss sss 
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v04-000 15- <iene ¢ $3: 250: 35 _$255$0UA28: (PATCH. SRC ISYSSER. REG;1 
: kRO760 1 SWITCHES LIST (SOURCE); 

; RO761 1 

; kO762 1 EXTERNAL ROUT INE 

; with : PAT$fao_out; ! formats a line and outputs to the terminal 


Page 


€ 


(13 


kk ka kk kk kk sk a ho 
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PWN OO ODNA NE WIN OOS NAME WN DONMWAO 
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EXTERNAL eat 


C 
¢ 
¢ 
C 
C 
rut 
PATSGET. BOUNDS 


ee 


: NOVALUE, 


naTesvnen.. VALU 
SYS$FAOL: ADDRESSING _MODE (ABSOLUTE); 


EXTERNAL 
PATSGL_SYMTBPTR, 


OLS, 
PATSCP_OUT_STR: REF VECTORC, BYTE), 
PAT$GB_ ~ROD. “PTR: REF VECTORC, BYTE), 
PATSGL_BUF ’ 
: ref pathname_vector, 


: VAL, 
L-MC_PTR  : REF MC_RECORD, 


Liat: 32 V4.0-742 5 
MASTER: CPATCH. SRCJPATSSV. 832; 79 * (2) 


VAL_TO_SYM on define symbols 

Understand array descriptors | 

Takes unmapped address and returns content 
Built pathname vectors 

Bytes remaining in free storage 

Translate values to their 

symbolic equivalent 


System service to do formatted output 


Pointer to default symbol table 
Pointer to old labels symbol table 
Pointer to user-defined symbol table 
Indicator if image has symbols 
Points into current output buffer 
Points to current 1/0 mode settings 
Holds current character count in output bu 
The current scope position (CSP) 

The last value displayed 

Pointer to the module chain (MC). 
Next location to display 


wm 
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DONO Ws —o 
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GLOBAL ROUTINE PATSFAO_PUT( STRING, ARGUMENTS ) 


D 16 
16-Sep-1984 ‘ 
14-Sep-1984 T 


: NOVALU 


mm t- 


ae 
FUNCTIONAL DESCRIPTION: 


Do just what SFAO does, 
global character buffer 
of output. 


only here we work in co-operation with a 
into which we are encoding arbitrary Lines 


within PATCH should use this routine to build 
other 1/0 call which PATCH should be making 
PATSOUT_PUT, which simply says ‘‘put out whatever 


ALL console output done 
output Lines. The only 
(for the console) is to 
PATSFAL_PUT built’. 


! CALLING SEQUENCE: 


PATSFAO_PUT (); 
INPUTS: 


- A counted string ht: 


contains the directives for $FAO. 
- The arguments for $FAO. 


STRING 
ARGUMENTS 
IMPLICIT INPUTS: 


PATSCP_OUT_STR 
PATSGL—BUF _S1Z 


OUTPUTS: 
The $FAO output is put into the output buffer. 


- Pointer to where we are in the current output buffer. 
= Count of characters in output buffer. 


i IMPLICIT OUTPUTS: 


The global character pointer is incremented so that it points 
(as always) to the next available place in the output buffer. 
The buffer count variable is incremented by the size of this string. 


! ROUTINE VALUE: 


none 


! SIDE EFFECTS: 


none 
BEGIN 
AP 

STRING : REF VECTORC,BYTE); 

LOCAL 
INP_DESC : VECTORES- ! Input desc for SFAO 
OUT_DESC : VECTOR(2), : By iput desc ior $FAO | 
STR_SIZE : WORD; ! $FAO returns output size here 


++ 
Build the descriptors that SFAO wants, ask it to do the encoding, 


=742 Page 6 
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SeSe Se Se Ge Se Sete eeese 
rorororeroronofrery 
rororererereorerery 


ONOUSWwI—O 


; Routine Size: 


16 
18-Sep-1984 01:11 
14-Sep-1984 12:52 
47 ! copying the output into our global outout buffer, and f 
cfs : global pointer to the next thes character position int 
475 iNP DESCLO Horace j; 
red INP_ Matis j= = STR Nabe 
47 9uT~ ~DESt St = thy Nout WIDTH = 1 = -PATSGL_BUF _SIZ; 
478 OUT@DESCL1) = .PATSCP_OuT 
479 SYSSFAOL( INP_DESC, STR sti, ‘out DESC, ARGUMENTS ); 
3480 PAT$CP_OUT_STR = BATSCP STR * .STR_SIZE; 
481 PATS$GL_BUF_SIZ = .PATSGL_ -BUFD SIZ + .STR SIZE; 
2482 1 END; 
TITLE 
- IDENT 
ISESC_SIZE== 
TXT$C"SIZE== 
PAL$C_SIZE== 
ASD$C_SIZE== 
FWRSC_SIZE== 
-EXTRN 
~EXTRN 
»EXTRN 
~EXTRN 
~EXTRN 
»EXTRN 
EXTRN 
EXTRN 
~EXTRN 
EXTRN 
~EXTRN 
~EXTRN 
«WEAK 
-PSECT 
000c 00000 - ENTRY 
53 00000000G EF 9E iyi MOVAB 
52 00000000G_ EF 7 0000 MOV 
5E 14 =6C¢ 001 SUBL 
0c AE 04 #BC 9A 0001 MOVZBL 
10 AE 06 AC 01 C1 0001 ADDL 
04 AE 00000083 &F 63 ¢3 Bots SUBL 
0B AE 62 00 0002 MOVL 
08 AC 9F 00028 PUSHAB 
+3 AE 9F QO0Z2E PUSHAB 
8 AE 9F 00031 PUSHAB 
18 AE 9F 000 PUSHAB 
00000000G 9F 04 FB 00037 CALLS 
50 3 5 00 MOVZWL 
62 5 § 0041 ADDL2 
5 gf C 00044 MOVZWL 
6 ? 0047 ADDL2 
4 QOO4A ET 
75 bytes, Routine Base: _PATSCODE + 0000 


SP ate 
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nally update the 
e bul fer. 


PATSSV 
\V04-000\ 


20 
4 
16 
9 


24 

PATSFAO_OUT, PATSFIND VAL 
PATSGET— “BOUNDS, PATSGET_VALUE 
PATSADD _NT_T 
PATSREPORT Ree 
PAT$VAL_TO™ CVA PATSSYMBOL_VALU 

SYSSEAOL, ppATsGu _SYMTBPTR 
PATSEL 0 DLABLS 
PATSGL_ Sy MEAD. PAT$GB_SYMBOLS 
PAT$SCP_OUT_STR, PAT$GB_MOD_PTR 
PATSGL_BUF-SIZ, PATSGL_CSP_PTR 
PAT$GL_LAST_VAL 
PATSGL~ “nc PTR. PATSGL_NEXT_LOC 
ACCESS CHECK 


_PATSCODE ,NOWRT , 2 


PATSFAO PUT, Save R2.R3 
PAT$GL_BuF_S1Z, R 
PATSCP~ OUT “STR. R2 


INP 

#4, “@#SYSSFAOL 

STR ~gitt R 

RO, PATSCP_OUT_STR 
STR_SIZ 

hy “PATSGL_BUF_SIZ 


7 
* (3) 


(3) 


Page 


DISKSVMSMASTER: CPATCH.SRCIPATSSV.B32; 1 


VAX=-11 Bliss-32 V4.0-742 


F 16 
1e=$ep-1986 12:52:68 
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v04-000 14-Sep-1984 12:52:48 DISKSVMSMASTER: CPATCH.SRCJPATSSV.B32;1 (4) 
; a3 3c ! GLOBAL ROUTINE PATSMODULE_SIZE( MC_PTR ) = 
; ¢ ¢ 485 1 !+4 
; 234 ay ! : Functional Description: 
3 90 z488 1 Given an MC pointer to a given module, estimate how aany bytes of RST 
; $39 $t5p | storage would be required to SET (initialize) this module into the RST. 
; 238 2491 1 ! Calling Sequence: 
; go $t36 1! 
; 240 2493 1! The routine is fimply called to pick up the returned value. The reason 
; 241 $t3e +} why it is global is because it is called in PATS$SHOW_MODULE, of 
; 242 495 1! PATSSV.B32, and in ADD_MODULE, of PATBLD.B32. 
> 243 2496 1! 
> 244 2497 1°! Formal Parameters: 
> 245 2498 1! 
: 246 2499 1! MC_PTR An MC pointer which tells us all we need 
: 2467 2500 1! to know about the indicated module. 
> 248 2501 1! 
; 269 2502 1 ! Implicit Inputs: 
: 250 2503 1! ; 
et). 2504 1! The RST storage we consider is independent of GLOBAL P 
> 252 2505 1! considerations. This means that in all Likelihood we overestimate. 
; $27 $208 : (We guarantee NOT to underestimate in any case.) 
> 255 2508 1! How the storage Senager works, and how we 
; ee 2509 1! use it to allocate all RST storage. 
; gor 2510 1! ; 
;. £0 2511 1°! Implicit Outputs: 
3 29 s2i¢ 1! 
; 260 2515 1! none. 
; 261 2514 1! 
; 262 2515 1 ! Return Value: 
; 263 2516 1! : 
3: 264 2517 1! The number of aytes required to add the module 
; 265 2518 1! to the Runtime Symbol Table data structures. 
: 266 2519 1! 
; or 2520 1 !-- 
; 268 2521 1 
; 269 2522 2 BEGIN 
: 270 2525 2 
; e271 2524 2 MAP 
; 272 2525 2 MC_PTR : REF MC_RECORD; 
; $f? $2$$ § 
3 74 527 LOCAL 
3; are 2528 TOTAL_BYTES; 
: 276 $263 
g arr 2530 !¢+ 
: 278 2531 ! Macro to calculate the total number of bytes 
; <r S256 ! taken for so-called vector stcarage -(whic 
; 39 $242 ! is how we allocate NTs, LVTs, and SATs). 
3 8 $e MACRO 
; 284 La] 339 VEC_STORAGE_FOR( RECORDS, SIZE ) = (%UPVAL + ! The storage marager's overhead, 
: o3 $235 ( (RST_UNITS( RECORDS * SIZE )) * ZUPVAL ))%; ! Rounded up vector st 


= 
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V042000 12n80p- 1984 12:52:68 DERKSVMGMASTERSCPAT CH SACIPATSSV.B3209%" (as 
; Ss re iF LL h l b fb 
H : Tally up the total number of bytes needed to add the NTs, LVTs, and 
3 568 2¢§ SATs for the indicated module. First initialize counter. 
; 291 544 2 TOTAL_BYTES = 0; 
3 $36 545 
; 546 '+¢ 
: Soe Ls ‘ Although it is not true, we must assume that NT entries are fixed-size. 
z $38 Seep § TOTAL BYTES = VEC_STORAGE_FOR( .MC_PTR CMC_NAMES], RST_NT_SIZE ); 
; 298 $22) § ‘++ 
; 299 226 i Add on that taken for SATs and LVTs. 
; 300 2553 2 i- 
3; 6301 2554 . TOTAL BYTES = .TOTAL_BYTES 
s 302 2555 + VEC_STORAGE_FOR( -MC_PTR CMC eet: TICS], RST_SAT_SIZE ) 
; 303 2556 2 + VECTSTORAGE-FOR( .MC_PTR CMC“LITERALSJ, RST_LVT_SIZE ); 
3; 304 2557 § 
s 30S 2558 '++ 
: 306 2559 2 | Return the size. 
s 307 2560 2 i- 
; 308 2561 2 RETURN(. TOTAL_BYTES); 
; 309 2562 1 END; 
.EXTRN PATSGL_RST_BEGN 
000C 00000 -ENTRY PATSMODULE_SIZE, Save R2,R3 : 2483 
50 04 00002 CLRL TOTAL_BYTES 3 2544 
52 04 AC 00000000G EF C1 00004 ADDL3 PATS$GC_RST_BEGN, MC_PTR, R2 ; 2549 
51 08 A2 2C C5 0000D MULL3 #44, 8TR2), RI : 
51 03 ¢cO 00012 ADDL2 #3, R1 : 
51 04 C6 00015 DIVL2 #4, R1 ; 
50 51 02 78 00018 ASHL #2, R1, TOTAL_BYTES 3 
50 04 CO OO0IC ADDL #4. TOTAL ve : 
51 31 A2 OA C5 OO01F MULL3 #10, 49(R2), : 2555 
51 03 CO 00024 ADDL2 . o 3 ; 
51 04 C6 00027 DIVL2 #4, ; 
53 6041 DE O0002A MOVA Hore as BYTES) ERT. R3 3 2556 
52 35 Ae 06 C5 Hf MULL » R2 ‘ 
51 03 A2 Y9E 00033 MOVAB 3(R2) 3 
51 04 C6 00037 DIVLe #4, ai * : 
50 08 A341 DE OOO3A MOVAL BCRSSERII. TOTAL_BYTES 3 
04 0005F RET 3: 2562 


; Routine Size: 64 bytes, Routine Base: _PATSCODE + 0048 
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GLOBAL ROUTINE PATSOUT_NUM_VAL ( VALUE, NEW_LENGTH, NEW_RADIX, ZERO_FILL) : NOVALUE = 


le 
' Functional Description: 


11 
(5) 


Format the given value according to the current output mode settings. 
The formatted value is inserted into the output buffer described by 

PATSCP_OUT_STR and PATSGL_BUF SIZ. If the value is formatted in 
penedes inst and negative and ZERO_FILL is TRUE, then a leading zero 
S output. 


Calling Sequence: 
PATSOUT_NUM_VAL (VALUE, NEW LENGTH, NEW RADIX, ZERO_FILL) 
Inputs: 


VALUE = The actual value we are to write out. 
NEW_LENGTH = Either 0, or the MOLE_LENGTH we should use. 

(0 => use current LENGTH, non-zero allows 

it to be overridden.) f 

(The Literal, NO OVERRIDE = 0, is used for this.) 
NEW RADIX = Either 0, or the MODE_RADIX we should use. 
ZERO_FILL = Indicator if leading Zero should be output 

(TRUE = yes, FALSE = no) 


Implicit Inputs: 
PAT$GB_MOD_PTR = points to the current mode data structure. 


PAT$CP_OUT_STR = points into the output buffer at the first 
lace in the buffer which is available. 


SB AWAAANAAIWI PS ponononononepony 2 2 2 SS Ss SS 
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4 PATSGL_BUF_SIZ = holds the current number of characters in 
4 the buffer. 
344 9 
345 9 Outputs: 
346 9 : 
347 9 The (numeric) character representation 
348 60 of the value is encoded into the output buffer. 
349 2601 Be 
356 5005 Implicit Outputs: 
351 260 ; oe 
352 2604 The buffer pointer, PATSCP_OUT_STR, is incremented. 
$7 ak The buffer count, PAT$GL_BOF_STZ, is incremented. 
355 607 Routine Value: 
356 2608 
357 2609 NOVALUE. 
358 261 ; 
359 2611 Side Effects. 
360 sole ] ; 
305 so\7 Negative hex numbers may be preceded by a leading 0. 
635 615 
64 O16 BEGIN 
65 61 
366 618 LOCAL 
367 2619 USE _LENGTH, ! The MODE_LENGTH we actually use 
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PATSSV 16-Sep-1984 9}: 11:48 VAX-11 Bliss-32 V4.0-742 ge 12 
v04-000 14-Sep-1984 12:52:48 DISKSVMSMASTER: cbaten. SRCIPATSSV. B32, i (5) 
; r¢} $ 9 USE_RADIX; ! The MODE_RADIX we actually use 
: 70 6 § OWN 
: 371 6 FORMAT : VECTOR(4,BYTE) ! Build format string here 
; d 6 4 {NITIAL( BYTE( ZASCIC *!22" ) ); 
: 374 626 14+ 
: 75 627 ' Assume that we are pesser an override for the LENGTH and RADIX, 
; rg 3 but revert to the globally-set one if this is untrue. 
3 a8 $e ? THEN = LENGTH = .NEW_LENGTH) EQL 0) 
; 80 308 E_LENGTH = .PATSGB_MOD_PTR (CMODE_LENGTH); 
3 eu! $037 AF USE. Uae otk = .NEW RADIX) “EQL™0) 
; 38 2639 PS USE_RADIX = .PATSGB_MOD_PTR CMODE_RADIX); 
; 384 636 
s 3585 2637 § 1++ 
; 386 2638 i Now just build the required 2-character format sere descriptor, 
3 see sez 2 based upon the current setting of the mode Length and radix. 
; 389 2641 ; : We assume signed, for decimal output, and take longword hexadecimal either 
; soy 50t6 a when that is explicitly the case, or when some unknown Length or radix is indicated. 
: 2644 § FORMATC2] = \ SELECTONE -USE_RADIX OF 
3; 395 2645 3 
; 4394 2646 3 PBCTAL RADIX): "9" s 
; 395 2647 3 EDECIMAL RADIX): "a°s 
; 3% 2648 3 COTHERWISEJ: "2" 
3; 397 2649 3 TES 
; 398 2650 2 ); 
; 399 2651 ¢ 
; 400 2652 FORMATC3) = ( SELECTONE .USE_LENGTH OF 
: 401 2653 3 SET 
; 402 2654 3 CBYTE_LENGTH]: ‘B'; 
: 403 2655 3 CWORD-LENGTH]: ‘w'; 
; 404 2656 3 COTHERWISE): a he 
; 405 2657 3 TES 
3; 406 2658 2 ds 
: 407 2659 2 
; 408 2660 2 !++ 
; 409 2661 2 | Now check if the output radix is hexadecimal and if a a ya zero is needed. 
3; 410 Seog 2! This is required to make PATCH output acceptable as input exadecimal 
: re $o07 $j ' numbers require the leading character to be a numeric. 
3 615 2665 § IF (.FORMATC2) EQLU 'X") AND (.ZERO_ FILL) AND 
3; «64146 2666 (.(VALUE)<0, .USE_LENGTH*8, 1> GTRA 2X'SFFFFFFF*) 
: 415 667 ¢ T 
: 416 668 EGIN 
s 617 669 PAT$SCP_OUT_STR(O] = ‘'0'; 
: 418 670 PAT$CP_OUT"STR = .PAT$CP_OUT_STR + 1; 
3: «64419 671 PATSGL_BUF_SIZ = .PATS$GL_BUF_SIZ + 1; 
; 420 67 END; 
3; 421 67 
s 622 674 PATSFAO_PUT ( FORMAT, .VALUE ); 
3 ret 675 
: 626 676 1 END; 


K 16 
PATSSV 16=Sep-1984 01:11:43 -VAX=11 Bliss-32 V4.0-742 Page 13 
v04-000 ae 95 ad dB DISKSVMSMASTER: CPATCH. SRCIPATSSV.B32: 1° (5) 
.PSECT _PATSOWN,NOEXE ,2 
3F 3F 21 03 00000 FORMAT: .ASCII <3>\!27\ : 
.PSECT _PATSCODE,NOWRT,2 
0004 00000 .ENTRY PATSOUT_NUM_VAL, Save R2 : 2563 
52 00000000" EF 9E itt MOVAB FORMAT+2 : 
50 08 AC DO 00009 MOVL § NEW_LENGTH, USE_LENGTH ; 2630 
0B 12 0000D BNEQ 1$ : 
51 000000006 EF 00 O000F MOVL §_ PAT$GB_MOD_PTR, R1 : 2632 
50 07 Al 9A 00016 MOVZBL 1(R1),~USE-LENGTH : 
51 OC AC DO OOO1A 1$: MOVL  NEW_RADIX, "USE_RADIX : 2633 
07 12 OOO1E BNEQ  2$ : 
51 000000006 FF 9A 00020 MOVZBL @PAT$GB_MOD_PTR, USE_RADIX + 2635 
08 51 D1 00027 2$: CMPL USE_RADIX, #8 3: 2646 
06 12 O002A BNEQ : 
51 4F BF 9A 0002C MOVZBL #79, R1 : 
OF 11 00030 BRB : 
OA 51 D1 00032 3$: CMPL -_—~ USE_RADIX, #10 + 2647 
06 12 00035 BNEQ : 
51 53 BF 9A 00037 MOVZBL #83, R1 : 
“04 11 00038 BRB 5$ : 
51 58 8F 9A 0003D 4$ MOVZBL #88, R1 > 2648 
62 51 90 00041 5$ MOVB  R1, FORMAT+2 + 2644 
01 50 D1 00044 CMPL §- USE_LENGTH, #1 > 2654 
06 12 00047 BNEQ : 
51 42 8F 9A 00049 MOVZBL #66, R1 : 
OF 11 00040 BRB ; 
02 50 D1 OO04F 68: CMPL —-~ USE_LENGTH, #2 > 2655 
06 12 00052 BNEQ : 
51 57 BF 9A 00054 MOVZBL #87, R1 ; 
04 11 00058 BRB 8$ ; 
51 4C 8F 9A 0005A 7$: MOVZBL #76, R1 : 2656 
01 = A2 51 90 0005E 8$: MOVB  ~=R1, FORMAT+3 : 2652 
58 «BF 62 91 00062 CMPB  —s- FORMAT+2, #88 : 2665 
29 12 00066 BNEQ ; 
25 10 AC €E9 00068 BLBC. ZERO-FILL, 9$ : 
50 08 C4 0006C MULL2 : : 2666 
51 04 ac 50 0 EE O006F EXTV. #0, RO, VALUE, R1 : 
OFFFFFFF 8F 51 D1 00075 CMPL R11. #-1610612737 ; 
13 1B 0007C BLEQU ; 
000000006 FF 30 90 O007E OVB #48, aPAT$CP_OUT_STR : 2669 
000000006 EF 06 0008 INCL  PAT$CP_OUT_STR : 2670 
000000006 EF D6 0008B INCL  PATS$GL~BUF7SIZ > 2671 
04 AC DD 00091 98: PUSHL VALUE > 2674 
FE Ad 9F 00094 PUSHAB FORMAT : 
FED9 CF 02 FB 00097 CALLS #2, PATSFAO_PUT : 
04 0009C¢ RET : 2676 


; Routine Size: 157 bytes, Routine Base: _PATSCODE + 0088 
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PATSSV 16-Sep-1984 01:11:4 VAX=11 Bliss=-32 V4.0-742 Page 15 
v04-000 1228687 384 3:85:48 DISKSVMSMASTER: CPATCH. SRCIPATSSV.B32: 1° (6) 
H : $ orf ! GLOBAL ROUTINE PATSOUT_PUT ( BUFFER ) : NOVALUE = 
: 428 679 1 S++ : 
; 429 680 1 ! Functional Description: 
; 450 $08) 1 } 
; 431 tt 1! Cause the current output buffer to be actually 
: tz 2685 1! output to the console. 
3; 4 684 1! , 
> 434 685 1 ! Calling Sequence: 
; 435 686 1! 
; 436 2687 1! PATSOUT_PUT () 
; rh H sess 1} 
; 438 689 1 ! Inputs: 
> 439 2690 1! 
; 440 2691 1! BUFFER = Pointer to the beginning of the current output 
: 441 5098 1} buffer. this is supposed to be a counted 
> 442 2695 1! string except that noone has supplied the count yet. 
> 443 2694 1! jie we expect that the actual string to be printed 
: 444 2695 1! starts in byte BUFFER+1, 
> 445 2696 1! ‘ 
: 446 2697 1! Implicit Inputs: 
; 447 2698 1! é 
; 448 2699 1! PATSCP_OUT_STR = Points into this output buffer at the first 
3; 449 2700 1! ps ece in the buffer which is NOT to be printed. 
; 450 2701 1! PATSGL_BUF _SIZ = Holds count of characters in buffer 
; 451 2702 1! 
: 452 2703 1 ! Outputs: 
3 6435 2704 1! aren 
3; 454 to, oe The string is printed, exactly as it is in the 
; 455 2706 1! buffer - ie, it should contain whatever carriage control 
: 456 e707 1! you want. 
: 457 2708 1! 
; 458 2709 1! Implicit Outputs: 
3; 459 2710 1! ; ; 
; 460 tah Ge @ The buffer pointer, PATSCP_OUT_STR, is set to zero. This will 
; 461 e7i2 1! help routines know if ghey are to use their own buffer or 
: 462 e7is 1! if one is already partially built. 
: 463 2714 1! *** J don't think we have ever actually used the above 
: 464 aie at ‘feature’, and feel that this routine ought, instead, set 
; 465 2716 1! up for more PATSFAO_PUT calls on the current buffer when we 
: 466 arir are called to output it. 
3; 467 2718 1! ; 
; 468 2719 1 ! Routine Value: 
; 469 2720 1! 
: 470 e7ei 1! NOVALUE. 
: 671 alee ¥ t _- 
3: 472 2723 1! Side Effects: 
: 675 2724 1! 
3 «474 2725 1! none. 
s 675 2726 1 !e- 
: 476 2727 1 
: 677 2728 § BEGIN 
: 478 $762 
; 479 730 2 MAP , 
; 480 2731 2 BUFFER : REF VECTORC,BYTE); ! Points to output buffer 
; «481 $335 2 
; 482 7335 2 I++ 
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; Routine Size: 


“$20 


4 2 is Fill in the count, and pass it to QI10. 
7 $ ret. Rie “ PATSGL BUF $12; 

7 Sr AO 4X BUFFER ); 

738 Parser. out "Str 5 

739 1 END; 


“nha 


0000 00000 
04 BC 00000000G EF 90 00002 
04 AC DD QOO0A 
00000000" EF 9F 0000D 
00000000G_ EF 02 FB 00013 
00000000G EF D4 QOOIA 
04 00020 
33 bytes, Routine Base: _PATSCODE + 0128 


»PSECT 


-BYTE 
«ASCII 


$B¢ 12:52:68 DISKSUNSMASTERSCPAT 


_PATSPLIT,NOWRT ,NOEXE ,0 

3 

VIAC\ 

_PATSCODE ,NOWRT,2 
PATSOUT_PUT, Save nothing 
gure BuF $12, @BUFFER 


AAA 
3 PATS$FAO_OUT 
PATSCP_OUT_STR 
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GLOBAL ROUTINE PATSOUT_SYM_VAL ( VALUE, NEW_LENGTH, NEW_RADIX ) : NOVALUE = 


1e4 
} Functional Description: 


~— 

~~ 
<= 
Oo 
> 


Write out the given value according to the current 
mode settings = including the current mode setting 
for the LNOJSYMBOLS flag. (By ‘write out’, we mean 
‘encode into the output buffer’). 

Calling Sequence: 
PATSOUT_SYM_VAL () 


Inputs: 


Se Se ee ee Se ee Be Se Se ease 
= = 
Oo 
io 


MEWUN “OC VOONOUSWN "OVO ONAOUES WN“ OVONOUS wr 


VALUE = The actual value we are to write out. 
NEW_LENGTH = Either 0, or the MODE_LENGTH we should use. 

0 => use current LENGTH, non-zero allows 

it to be overridden.) 

(The Literal, NO_OVERRIDE = 0, is used for this.) 
NEW_RADIX = Either 0, or the MODE_RADIX we should use. 


! Implicit Inputs: 
PAT$GB_MOD_PTR = Points to the current mode data structure. 


PATSCP_OUT_STR = Points into the output buffer at the first 
piece in the buffer which is available. 
PATSGL_BUF_SIZ - “a 


DPAEDPEDPEDRA DMIs PPP PPE 


ds the current number of characters in 
e buffer. 


Outputs: 


The symbolic or numeric (or symbolic+residue) representation 
of the value is encoded into the output buffer. 


Implicit Outputs: 


The buffer pointer, PATSCP_ OUT STR, is incremented. 
The buffer count, PATSGL_BOUF_STIZ, is incremented. 


Routine Value: 
NOVALUE. 

Side Effects. 
Th 
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3 e VALUE is printed out. 

38 

39 8 BEGIN 

40 790 

41 791 LOCAL 
42 79 ARRAY_DESC_ADDR, ! The address of an array descriptor, 

43 79 ' if we symbolize an array reference. 

44 794 NT_PTR : REF NT_RECORD, ' A pointer to the name table (NT) entry 

45 795 ' which corresponds to the symbol which we 

46 796 ! deal with if we do symbolic output. 
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V04-000 er geen abe Pb ests WAS ER eek en te caparssv.es2nge” chs 
Used to recover the actual or real value 
of the + we may base our symbolic 
output off. 
Symbol path vector used to contain the 
whole pathname assocaited with the 
symbol pointed to by NT_PTR, above. 


REAL_VALUE, 


PATH_VEC : PATHNAME_VECTOR; 


PIIVIVIVIT 


PAA AASAMNMANIMNIIVINIII SS 
tormcesesess OC 


'44¢ 

! First, see if the value is an exact match to a DEFine type symbol. Note that 
! these symbols have nothing to do with the so-called RST and so much be handled 
' special Yi First look in the current Label symbol table, then in the old 
label table, and lastly in the user-defined symbol table. 


if _(.PATSGB_MOD_PTRCMODE_SYMBOLS]) 
THEN 


MOIPIPMOIPOPOPUPONoToTnn 


MIFWN —"OODNOULSWN—OVOO~N 
00.09 09 CD CO COCO CD CO CO COCO CD OD CO II 
A I IOOODOOOOOCOOOO 


th ghabighahioe 9 


TEMP_SYMTB, 
INDER; 


NDEX = PATSFIND_VAL(.VALUE, TRUE); 
— EQL OF 


FH bo be 


BEGIN 

TEMP_SYMTB = .PATSGL_SYMTBPTR; !' Remember current Label table 
PATSGL_SYMTBPTR = .PATSGL_OLDLABLS; ! Use old Labels symbol table 
INDEX = PATSFIND_VAL(.VALOE, TRUE); 

AS artes EQL OF 


BEGIN 
PATSGL_SYMTBPTR = .PATSGL_SYMHEAD; ! Use user-defined symbol table 
proex = PATSFIND_VAL(.VALOE, TRUE); 
PATSGL_SYMTBPTR = ,TEMP_SYMTB; ! Restor current Label table 
IF (.INDEX NEQ 0) 
THEN 
3 
; Found an exact match. Print this and return an OK status. 
PATSFAQ_PUT(UPLIT(ZASCIC *!AD'),.SYM_CHCOUNT(. INDEX) ,SYM_NAME(. INDEX)); 
END; 


00 Cd OD C9 CO Cd C9 Cd OS C9 Cd C9 C9 JP OD OD CD G9 C9 CD 0D CD CD 


END; 
lee 


! Even though PATSVAL_TO_SYM ‘initializes’ NT_PTR when we pass on its address, 
! we must still initialize it to zero because otherwise the top half of the 

! Longword never gets cleared. (PATSVAL_TO_SYM thinks, and rightly so, 

! that NT_PTRs are only 2 pytes long, the problem is that BLISS doesn't realize 
! this when it passes .NT_PTR on as an actual parameter later on.) 


NT PTR = 0: 

ARRAY_DESC_ADDR = 0; 

lee 

! First, see if we should even attempt symbolic output. 


NF Pepe et pat tet tet etre Pe PN RPS Se 
BEES EWN NI WIR PINPINPUNPIPYNININD 2 


444493944 Se 
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1b-Se 1984 01:11:4 VAX-11 Bliss-32 V4 
v04-000 10-8eb-198e PEE DISKSVMSMASTER: CPA CIPATSSV.B32; 


604 ten 

605 IF ‘.PATSGB_MOD_PTR CMODE_SYMBOLS]) AND (.PATSGB_SYMBOLS) 
o06 THEN - 

0 8 i Next, ask VAL_TO_SYM for the NI-pointer which 


: sorrgaponas td the symbol we should use. 
LSE a 
(Literals) to be 


IF (PATSVAL_TO_SYM( VALUE, NT_PTR, FALSE)) 


' The ‘'F that we don't want LVTs 


considered. 


144 

' Then, to be able and output ‘’symbol+offset'’, 
' we must be able to recover the actual value 
of the indicated symbol. 


If (PATSSYMBOL_VALUC .NT_PTR, REAL_VALUE)) 
BEGIN 
lee 


i See if the value picked up . PATSSYMBOL_VALU is 
! oy the address which is bound to the 


AAAAAAAGAAAAAAAAOAAAAAAOAOAO 
00 09 09 09 09 00 09 C9 CO CD CD OD CD OD CD CD 0D. 
DP PAPAEAAAAASAOOCMUIUIUIVT 
WN O OONOA UNE WN $9 DOONAN (OO ONO UE WI"OWONOUL 


RP ean am mm wr 
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mee a ek 8 nt a a a a tt ns a 2s SS) 4 8 a a SS a Ss St 
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; 7 

H 7 

: 7 

3 7 

| 

$ 7 ! symbol, or if it is the address of a descriptor. 

: 87 ! Note that DST_PTR is invalid for NTs which 

: af ! were created only for global symbols. 

: 880 4 if (.NT_PTR CNT_UP_SCOPE) NEQ 0) 

; 881 3 THEN 

; 882 4 BEGIN 

; 8835 4 LOCAL 

: 884 4 BOUNDS : ARRAY_BNDS_DESC, 

; 885 4 DST_RECRD : REF DST_RECORD; 

3; 6 886 4 

; 637 887 4 ++ 

; 638 888 4 ' Pick up the DST pointer so that we can see 

3 27) oe ? if access is via descriptor. 

; 641 891 4 DST_RECRD = .NT_PTR CNT_DST aed: 

H O46 892 4 IF T.DST_RECRD COSTR_ACCES_TYPE] EQL ACCS_DESCRIPTOR) AND 
3; 64 89 g ( ( CODST_LRECROCDSTR_ACCES_BASDJ EQL ages BASDIR) AND 
> 644 894 (.DST_RECRDCDSTR_ACCES BREG) EQL 15) J OR 

: 645 895 : ( (.OST_RECRDLDSTR_ACCES BASD] EQL 9 AND 

; 646 896 (.DST_RECRDCDSTR_ACCES_BREG] EQL 0) ) ) 

: 647 97 4 THEN 

3; 648 98 BEGIN 

; 649 99 '++ 

; 650 900 ! REAL_VALUE, returned above, is actuall 

; 651 901 ' the address of a descriptor. Modify this 
3 636 308 ' value to be the beginning virtual address 
; 6 9 ' of the array. 

3; 654 904 leo 

3; 655 905 ARRAY_DESC_ADDR = .REAL_VALUE; 

; 656 906 PATSGET BOONDS( .ARRAY DESC_ADDR, BOUNDS); 
; 65 90 REAL_VACUE = .BOUNDS CARRAY-ADDRESS); 

; 658 443 4 END; 

: 659 9 ; END; 

; 660 910 


v04=000 HE$Eor}9RE QUTL:GE  YMLTABLLSTER? HiOa7SRcoparssv.ose"40" 


; 661 911 ' ++ 

> 66 318 i For unbounded s syabols,. we don 

; 66 91 ' allow Pe mbol+offset’’ unless ' ettset"’ 

3 O68 ai2 i is less than a maximum value. 

; 666 318 if (((. VALUE = ,REAL_VALUE) LSSA RST_MAX_OFFSET) 

> 667 917 4 OR (.NT_PTR ENT_IS_BOUNDED))) 

; 668 +t 3 

: 669 919 4 BEGIN 

; 670 920 4 

; 671 921 4 "We have all we need now, so gust 

; 67 9 ¢ 4 i encode the characters tote t 

; or 9 4 i output stream. To do this we 

3; 674 924 & i must first build a Bik. vector 

: 675 925 4 i to correspond to the NT scope chain we 

: 676 g § ? a implicitly now have. 

: 678 928 4 PATSADD_NT_T_PV( .NT_PTR, PATH_VEC ); 

; $679 929 4 

: 680 930 4 '++ 

; 681 2931 4 ' Then we simply print this vector. 

; «68 sors 4 lan 

; 68 933 4 PATSPRINT_PATH( PATH_VEC ); 

: 684 934 4 

; 685 935 4 '++ 

3; 686 936 4 i See ut ere is any residue - i.e. see if 

3; 687 937 4 "'s ayes > eS sufficient, or if we must 
; 688 938 4 ! eu put ‘‘symbol((...)J+offset’’. 

3; 689 939 4 le 

; 690 940 5 if ti VALUE EQL .REAL_VALUE) 

: 691 941 4 THEN 

; 69 38 4 RETURN; ! No residue => we're done. 
3; 69 943 4 

3 694 944 & le+ 

; 695 945 & ' The residue (offset) should 

; 696 946 4 be eryayes in numeric form, preceeded 

; 697 2947 & ! by a 

; 698 948 4 

; 699 949 & PATSE AO -PUTCUPLIT(ZASCIC ‘+#")); 

; 700 950 4 VALUE =". VALUE=.REAL VALUE; 

: 701 951 4 

; 70 326 4 '++ 

; 953 4 i We should be able to sinol 

; 704 954 & i erop out of this p art 

s 705 955 4 i cod ’ and have th is dene ‘by PATSOUT _NUM_VAL. 
: 706 328 4 i ‘Or L FAO can print HEX without the leading 
: 44 32 ? i Os, we must do the following... 

: 709 989 5 if (.PATSGB _MOD_PTR CMODE_RADIX] EQL HEX_RADIX) 
; 710 960 4 THEN 

: 711 961 

: ay: 966 

3; 71 96 “fecciel cludge to ignore, loading v 
3; «714 964 i But to then put exactl Leading 

; 715 965 } _when the rest begins w th A-F. 

; at 308 

7 96 LOCAL 


BEGIN 
| 
| 


1 
PATSSV 1B-se 1984 01:11:4 VAX-11 Bliss-32 V4.0-742 1 
V04G- 1 =300 138% Ob: Ud:38 DISKSVMSMASTER: CPATCH. SRCIPATSSV. 332° 79 © 3} 
: 718 96 CLUDGE_SIZE, ! # of digits for FAO. 
3 ahs 39 CLUDGE- VAL; ! First alaraers digit. 
: os! 33 reer int at least 1 digi 
3 ? ' We must always print at least t. 
; O88 358 les . . 
: 724 974 DECRU I FROM 7 
: 725 975 dO 
; 726 44 6 BEGIN H 
: ver 977 6 CLU DGE SIZE = .1+1; 3 
:; 728 978 6 IF (CLODGE “VALS. VALUE<. 1*4,4,0>) NEQ 0 F 
3; 729 979 6 HEN 3 
s 7350 980 EXITLOOP; 3 
s 731 981 END; 3 
ee ¢ o8e 3 
; £ 4 IF .CLUDGE_VAL GEQU %Xx'A' : 
“Be 984 THEN 
s 735 985 2 ATSFAO Fy ead eeee ie 0203 
s 13% 986 PATSFAO Pu UPCIT( ZASCIC 
s 37 987 5 ™, CLUDGE SIZE. . VALUE); 
3; «738 988 5 RETURN; 
3; 739 989 4 END; 
s 76 990 3 END; 
3; 741 991 END; 
; 74 99 
; 74 $38 '+¢ 
> 744 4 i We didn't t try to do Syyeetts output, or we failed Compt ores? at it, or 
3 re 3444 3 | i _it went OK but we still have a ‘residue’ value to output. 
> 747 S399 PATSOUT -NUM_VAL( .VALUE, .NEW LENGTH, .NEW_RADIX, TRUE); 
; 748 2998 1 END; 
-PSECT _PATSPLIT,NOWRT,NOEXE,0 
44 41 1 03 00004 P.AAB: .ASCII <3>\!AD\ : 
0 43 5 1 Bnone P.AAC: .ASCII <1>\#\<0><0> ; 
0 1 QOOOC P.AAD: .ASCII <1>\0\<0><0> 3 
00 00 00 4C 58 2 1 04 00010 P.AAE: .ASCII <4>\!#XL\<0><0><0> 3 
.PSECT _PATSCODE.NOWRT,2 
O3FC 00000 ENTRY PATSOUT SYM_VAL, Save R2,R3,R4,R5,R6,R7,R8,-; 2740 
9 G EF 9€ it MOVAB parses -Rt -BEGN, Ro 3 
7 G EF E MOVAB AT$GB-MOD-PTR, RB 3 
0 G EF 3 19 MOVAB PATSEIND. ORL. al’ : 
g F CF E 1 MOVAB PATSFA 0 PUT. § 
00008 : ‘a F 6 MOVAB P. 3 
4 000000006 EF 9 MOV PATSGL_SYMTBPTR, R4 ; 
f C A SUBL 60, $ 3 
D MOVL Senos B00. PTR, RO > 2810 
44 02 ad € BLBC 3 
01 OD PUSHL 3; 2817 


H x 
PATSSY 16-Se VAX=11 Bliss-32_ V4.0-742 
042000 bee att re oe ee ES ee et 
046 AC DD PUSHL LUE : 
67 F : CA LS hee PATSFIND_VAL Pid 
52 64 ip BOVE PATSGL_SYMTBPTR, TEMP_SYMTB ; 1 
64 000000006 Ff pO 43 MOVE PATSGL-OLDLABLS, PATSGL_SYMTBPTR : 3832 
04 AC DD 0004C PUSHL LUE ; 
67 : F 4F CALLS toe PATSFIND_VAL : 
dF $3 pos ist fubex —s 
64 000000006 FF + 0036 pete Co ORL, SYREN. PATSGL_SYMTBPTR : tH 
04 AC OD O05F PUSHL VALUE ; 
67 : F O62 CALLS #2, PATSFIND ; 
64 2 4 BOER ye: pore TEAP SYMTB, PAT SGL _SYMTBPTR $ 3839 
0¢ 13 0006 BEQL : : 
OD AO 9F 0006C PUSHAB 13( INDEX) ; 2838 
7E 0c Ap 9A O06F MOVZBL 1 (INDEX), =(SP) : 
oogt $Y 0075 4, Bh His Som 
53 D4 OOO7A CLRL NRRAYS DESC_ADDR F 3850 
5 68 D0 O007C MOVL § PATS$GB_MOD"PTR, RO + 2855 
, ss ons 5e 8088 4$ BRU zn, 2 ltt : 
F6 000000006 i E9 0086 5$: BLBC PATSGB_SYMBOLS, 4$ ; ae 
04 9F OOO8F PUSHAB NT_PTR : 
04 nt DD 0092 PUSHL  VACUE : 
000000006 EF 3 FB sot CALLS #3, PATSVAL_TO_SYM : 
04 AE oF 009F PUSHAB REAL VALUE + 2870 
000000006 EF 03 FB OOKs CALLS #27 PATSSYMBOL_VALU 
50 6E 3 69 Cl Oar ADDLS PATSGL_RST_BEGN, NT_PTR, RO + 2880 
3 a 0086 BEQL as : 
50 04 AO 00 00088 MOVL 4(RO) DST_RECRD : 2891 
02 02 Ad 02 FD tig CMP ZV , #2, 2(BST_RECRD), #2 + 2892 
02 02. a0 02 FD dock CMPZV , #2, 2(0DST_RECRD), #2 > 2893 
OF 02 a0 04 4 f Hf CHPZV #4, #4, 2(DST_RECRD), #15 > 2894 
0c 02 nD ? Op4 6$ BITE (DST_RECRD), #12 2895 
FOO oSF 02 Aj ? DA B1TB (DST_RECRD), #240 > 2896 
52 4 AE pd e] 7$: Ov REAL_VALUE, ARRAY_DESC_ADDR : 2905 
53 DD £3 PUSHL ARRAY DESC_ADDR : 
000000006 EF F EA CALLS #2, eat GET BOUNDS : 
, & 08 AE D Fi MOVL. BOUNDS, REAC VALUE : 2907 
50 4 Ac h AEC F6 8S: SUBL3 REAL_VALUE, VALUE, RO > 2916 


+ 
o 


; Routine Size: 378 bytes, Routine Base: _PATSCODE 


1 
PATSSV 1b-se -1984 01:11:4 VAX=11 Bliss-32 V4.0-742 Page 23 
y042000 racer tSBe a ekes Meee ee he ee sparssv.asene cot 
00000100 = 8F ; D1 oF CMPL = RO, - #256 ; ; 
1F BL ssy : ; 
50 6E 6 i 1 ADDL3 PATSGL_RST_BEGN, NT_PTR, RO + 2917 : 
03 Ad 1 TSTB = 3(RO) : ; 
5D 18 0010C BGEQ 4$ : ; 
10 AE 9F 001 f 9$ PUSHAB PATH_VEC t 2928 : 
04 AG DD 001 PUSHL f : : 
000000006 EF 02 FB 00114 CALLS. #27 PATSADD_NT_T_PV : : 
10 AF 9F 00118 PUSHAB PATH + 2933 : 
00000000v EF O07 FB 116 CALLS #1, PAT$PRINT_PATH : ; 
04 A 04 AC D4 1 CMPL VALUE, REAL_ VALUE + 2940 F 
4 120A BEQL 15 : : 
04 AS 99F O012C PUSHAB P.AAC + 2949 ; 
66 01 EB or F CALLS #1, PATSFAO_PUT : ; 
06 ac 04 AE C2 001 é SUBL2 REAL_VALUE, VALUE : 2950 : 
10 00 88 91 001 CMPB aPATSGB_MOD_PTR, #16 + 2959 : 
Hs if} 138 BNEQ 14$ : : 
59 D0 00130 MOVL 4&7, I + 2974 : 
5 01 A 4 140 10$:  MOVAB 1(RO), CLUDGE_SIZE : 2977 ; 
51 50 0 0144 ASHL #2, 1. R : 2978 : 
53 04 AC 04 51 FF 0148 EXTZV. R1, #4, VALUE, CLUDGE_VAL ; ; 
04 : 014 BNEQ 118 ; : 
0 pd? 0015 DECL =o + 2974 ; 
gS 11 0015 BRB 10$ 3 3 
OA D1 0134 11$: CMPL CLUDGE_VAL, #10 + 2983 ; 
06 1F 00157 BLSSU 12 ; ; 
08 AS 9F 00159 PUSHAB P.AAD > 2985 : 
66 01 FB 0015¢ CALLS #1, PATSFAO_PUT ; ; 
04 AC DD 0015F 128 PUSHL VALU : 2987 : 
3¢ DD 00162 PUSHL CLUDGE_SIZE : : 
Oc AS 9F 00164 PUSHAB + 2986 : 
66 03 FB 00167 138: CALLS #3, PATSFAO_PUT : : 
04 0016A RET + 2961 : 
01 bp 00168 14$ PUSHL #1 + 2997 : 
7E 08 AC 7D 0 16D MOVQ NEW LENGTH, -(SP) : ; 
04 AC DD 00171 PUSHL : ; 
0088 6 04 FB 00174 CALLS #4, PATSOUT_NUM_VAL ; : 
04 00179 15$: _—s RET + 2998 ; 
149 3 


1 
v042000 1b-Se0-1984 Meats Pea WBAASERScPat en Gecaparssv.e3264%° cat 


i ? +44 } GLOBAL ROUTINE PATSSHOW_MODULE : NOVALUE = ; 
“$e ¢ 001 1 $44 $ 
: f ? Oe : FUNCTIONAL DESCRIPTION: : 
; 2 Bee : Show which modules from the MC are in the RST. : 
; ret B38 1 ! FORMAL PARAMETERS: 3 
3; fo 0 1! : 
; 759 008 1! NONE. $ 
: 760 009 1! 3 
3 £9) Bi9 ! IMPLICIT INPUTS: 3 
; og 1} PATSGL_MC_PTR =I s assumed to point to the beginning 3 
3; 764 01 BB of the MC. ‘ : 
3 765 014 1! 3 
; 766 015 1! IMPLICIT OUTPUTS: : 
3 for big 1! $ 
; 768 Dir ae NONE 3 
: 769 018 1! 3 
; 770 019 1 ! COMPLETION CODES: : 
3: 777i 3020 1! 3 
3; 77 3021 1! NOVALUE. 3 
3 i 30 ¢ 1! ; 
3; 774 30 1 ! SIDE EFFECTS: 

; 775 $05¢ 1! 

: 776 wen 3 3 A summary of the current modules which the RST knows 

By ies 3058 1! about is written to the console. 

; 778 30 , 24 

: 779 028 1 !-- 

3; 780 194 1 

; 781 030 BEGIN 

; 7 031 LOCAL 

; Og OUTPUT_BUFFER : VECTOR CTTY_OUT_WIDTH, BYTE], ! Buffer to build report in. 

; (784 303 NUM_MC_ENTRIES ! How many entries there are in the MC. 

; 785 3034 C_PTR™: REF MC_RECORD; i Pointer to current MC record. 

: 787 3036 '+¢ 

: res O35 } Set up to do standard PATCH I/0. 

: 790 3039 PATSCP_OUT_STR = hada all +1; 

; 791 040 PATSGL_BUF_SIZ = 0; 

3; FF 041 

: 79 Oe lee 

3 a Rez : Initialize the pointer that we use to ‘chain’ thru the module chain. 

: 796 045 3 IF ((MC_PTR = .PATSGL_MC_PTRCMC_NEXT]) EQL 0) 

: 797 Bes THEN 

; 798 BEGIN 

3; 799 048 SIGNAL (PATS_NOLCL+MSGSK_INFO); 

; 800 049 RETURN; 

: 801 050 3 

; 80 51 

: 80 26 'e+ 

3; 804 05 ! Print out the title, and then loop thru the module chain simply giving the 

3 39? Bee ' relevant information for each module which we know about. 


v04=000 1eSe0-198 72:52:48 DISKSUMSMASTER:CPATCH-SRCIPATSSV.B32¢1°" (B) 


-PSECT _PATSCODE ,NOWRT ,2 
01FC 00000 -ENTRY PATSSHOW_MODULE, Save R2,R3,R4,R5,R6,R7.R8 ; 2999 


; 807 § NUM_MC ENTRIES = 9; H 
: ope PATSFAO_PUT( UPLIT SA ASCIC ‘module name symbols size!/')); 3 
09 8 PATSOUT— PUT OUTPUT BUFFER); ; 
; 810 dO $ 
; ae 9 BEGIN F 
; B18 °¢ "Print out the standard information - name and : 
: Bie bez ! whether or not it has been initialized inte the RST. $ 
; 816 065 NUM_MC ENTRIES = .NUM_MC_ENTRIES #1; é 
; 817 066 PATSCP— ~pur STR = UTPOT BUFFER +1; $ 
; 818 067 PATSGL_BUF-S12Z 3 
: 819 068 PATSPAO™ Bure UeLITt MASCIC_"!15AC !3AC _ ' ), MC_PTR CMC_NAME_CS], : 
; 820 069 4 (.MC_PTR CMC_IN_RSTJ) THEN UPLIT( ZASCIT ‘yes’ ) ; 
: 821 070 ELSE UPLIT( ZASCIC ‘no’ ))); 3 
; Ss¢ 071 3 
; 82 Bre 14+ $ 
3 Sse 307 i We have to call a routine to output the size $ 
3 HH so5e ; is so that it comes out in the right RADIX. 3 
3; 827 32 PATSFAO -PUT(UPLIT(ZASCIC* SUL. *) ,PATSMODULE_SIZE(. 1. PTR)); é 
: Hy 144 pATSOUT PUT (OUTPUT_BUFFER); Finally output the buffer. 3 
; HY 079 2 WHILE ((MC_PTR = .MC_PTRCMC_NEXTJ) NEQ 0); ; 
; 831 080 3 
; AT 081 3 
: Sez bas i “Give final summary information. F 
s 835 084 Sj PATSCP -pur -31f = QUTPUT BUFFER +1; 3 
; 836 085 PATSGL_ $I 3 
3; 837 086 PAT TSPAO° “PUT UPLIT ZASCIC ‘!/total modules: '!UL. af ENTRIES); $ 
; 838 3087 PATSFAO_ ( UPLIT( ZASCIC ‘!/remaining size: !UL.' + BA OREPORT FREE Sh): é 
; 839 3088 2 pareeut ~pUT OUTPUT BUFFER); é 
3; 840 3089 1€E 3 
-PSECT _PATSPLIT,NOWRT,NOEXE,0 é 

73 20 20 65 6D 61 $f 20 65 6C 75 64 6F 6D IC 60018 P.AAF: .ASCII <28>\module name symbols size!/\<0> 3 3 
00 2F 21 65 7A 69 73 20 20 73 6C 6F 62 6D 79 000 3 3 
0 8° 00 ASCII <0><0> 3 3 

00 20 20 20 43 41 33 21 20 43 41 #35 31 21 OD sf P.AAG: .ASCII <13>\!15AC !'3AC \<0><0> 3 3 
73 65 79 88 tires P.AAH: .ASCII Py yer, 3 3 

00 4F . bg one P.AAI: .ASCII ey $ : 

00 00 90 2— 4C 55 : P.AAJ: .ASCII ie _ 3 3 

65 6C 75 64 6F 6D 20 : 2 ge . 74 4 H 16 8 SAAK: ASCII <22>\!/total modules: !UL.\<0> 3 3 
69 73 20 67 6E 69 6E— 69 61 9p 5 2 F 21 16 8 i P.AAL: .ASCII <22>\!/remaining size: !UL.\<0> 3 3 
00 2— 4C 55 21 2 A 65 7A 7F 3 3 


; Routine Size: 192 bytes, Routine Base: _PATSCODE + 02C3 


1 

PATSSV Ib-se -1984 01:11:4 VAX=11 Bliss-32 V4.0-742 Page 26 

y042000 1 ~$e07 138% EE DISKSVMSMASTER: CPATCH, SRCJPATSSV.B32: 1° BS 
: G EF 9€ 2 MOVAB PATS$CP_OUT_STR, R8 F ; 
G EF 9E MOVAB PATSGL-RST-BEGN, R7 : : 
§ G EF 9E 9 MOVAB PAT GLBYFISIZ, R6 : : 
EF 9E 0001 MOVAB P.AAF,~R : ; 
4 FDIB CF 9E 0001 MOVAB PATSFAQ PUT, R4 : ; 
F FF7C «6OCE OSE: MOVAB <=132(SPY, SP : : 
oT HEGRE Hoan tal Biren. parscror.st we): 
50 000000006 EE 6 gi ADD ATSGL-RST-BEGN, PATSGL_MC_PTR, RO + 3045 ; 
2 : 36 0 MOV UL (RO), AC_PTR : ; 
006D81¢B BF ODD PUSHL #7176651 + 3048 : 
000000006 00 1 FB 8 CALLS #1, LIBSSIGNAL tance : 
53 D4 $029 1$: CLRL § NUM_MC_ENTRIES : 305 : 
5 0D BRee PUSHL R 3; 305 ; 
64 or FB 0004D CALLS #1, PATSFAO_PUT : ; 
E DD 009 PUSHL SP + 3058 : 
0128 4 o1 FB 0005 CALLS #1, PAT$OUT_PUT : ; 
3 06 00057 2s: INCL. NUM_MC_ENTRIES + 3065 ; 
68 01 AE 9€ 00059 MOVAB OUTPUT“BUFFER+1, PATSCP_OUT_STR : 066 : 
66 D4 0005D CLRL_ PATS$GL“BUF_SIZ : 306 : 
50 5 : C1 0005F ADDL3 PATSGL RST_BEGN, MC_PTR, RO : 3069 : 
06 03 A } E1 00063 BBC #1, 3(RO),~3$ : ; 
51 30 A? 9 0068 NOVAB P.AAH, R1 : F 
51 34 AS 9 aa 38: NOVAB P.AAI, R1 : 3070 F 
0c AQ OF $007 PUSHAB 12(RO) : 3068 : 
20 AS 9F 00077 PUSHAB P.AAG : ; 
64 03 FB OOO7A CALLS #3, PATSFAO_PUT ; F 
2 DD 0007D PUSHL 7 + 3076 ; 
4B AG or FB OOO7F CALLS #17 PATSMODULE_SIZE : ; 
0 DD 0083 PUSHL RO : F 
38 «= AS) «(OOF 00085 PUSHAB P.AAJ ; : 
64 02 FB 00088 CALLS #2, PATSFAO_PUT : : 
5E DD 0008B PUSHL : 3077 ; 
0128 c4 01 FB 9008 CALLS #1, PATSOUT_PUT : : 
50 : 67 cI 009 ADDL3 PATSGL_RST_GBEGN, MC_PTR, RO ; 3079 : 
5 60 3¢ 0 MOVZWL (RO), AC_PTR : ; 
68 01 AE 9E 00098 MOVAB OUTPUT_BUFFER+1, PATSCP_OUT_STR > 3084 : 
‘ D4 0009F CLRL PATSGL~BUF SIZ : 3085 : 
BD Al PUSHL_ NUM_MC~ENTRIES : 3086 F 
40 AS 9F OOOA PUSHAB P.AAK F ; 
64 FB OO0A6 CALLS #2, PATSFAO_PUT : ; 
LL : ¥ ; : 

090000006 EF FB a9 CALLS ‘ PATSREPORT_FREE 3087 
58 OA oF B PUSHAB P.AAL : ; 
64 FB 000B CALLS #2, PATSFAO_PUT : : 
: DD PUSHL SP > 3088 : 
ALLS #1, PATSOUT_PU ; ; 

0128 4 FB OOOBA CALLS #1, PATSOUT_PUT 

04 000BF RET : 3089 : 


v 
yer 


1042000 r “520-194 Meats Pb OAASPERScPAE on cecaparssv.as2—4%" «3 


et 


ELSE 
PATSFAO_PUT( UPLIT( ZASCIC ‘<null>® )); 


lee 
} And finally force out the message. 
PATSOUT_PUT( QUTPUT_BUFFER ); 


SSSeEe 


891 


-PSECT _PATSPLIT,.NOWRT ,NOEXE ,0 


fo 58 Gt GC 95 GE SE 86 00090 Praan: ASHI <o>\enul E5\c0> 


; Hk 830 ! GLOBAL ROUTINE PATSSHOW_SCOPE( PATH_VEC_PTR ) : NOVALUE = ; 
: 844 O36 1 !44 3 
3 sez Ba? } Functional Description: : 
: eee 035 } Print out the current scope position vector (CSP). : 
; 849 O99 1 ' Formal Parameters: 3 
; 850 098 1: $ 
s 831 099 1 none. 3 
; S26 100 1! 3 
3 S27 ! 1 } Implicit Inputs: : 
; 855 108 1 i The CSP is a PATHNAME_VECTOR. 3 
; 856 104 1! 3 
s 857 105 1 ! Return Value: 3 
: 858 106 1: 3 
; 859 107 1: NOVALUE 3 
; 860 108 1! PF 
: 861 109 1 i- 3 
; 86 110 1 3 
: 86 111 BEGIN 3 
3: 864 Ng 3 
; 865 31 LOCAL F 
; 366 "We OUTPUT_BUFFER : VECTOR CTTY_OUT_WIDTH, BYTE); ! Build output message here. . 
; 868 116 'e¢ 3 
: 869 117 i Set to use a new output buffer, and encode the standard beginning of 3 
5 gr 3 it the $ OW SCOPE message into it. ; 
s 87 120 PATSCP_ QUT_STR = OUTPUT_BUFFER + 1; ; 
; 1h \¢1 PATSGL_BUF_SIZ = 0; : 
s 6875 1 : PATSFAO_PUT( UPLIT( ZASCIC ‘scope: ') ); : 
3; 876 124 ; 
3; 877 125 '++ 3 
: 878 1 § i The actual thing we print out depends on whether or not there is actually 3 
3; 879 \s ! 8 CSP just now. 3 
: 880 128 in : 
Hy rt +4 iF (.PATSGL_CSP_PTR NEQ 0) : 
; 88 131 PATSPRINT_PATH( .PATSGL_CSP_PTR ) 3 
: 884 1 3 
; 1 3 
3 1 $ 
3 1 3 
3 1 3 
; 1 3 
; 1 3 
3 1 3 


ATSRNy 


yomee 
000000006 EF a 3 $e 
sunset Eg 

8 000000006 EF 09 

: i 

00000000V_ EF 4 ‘e 
00000000' Ff oF 

62 1 FB 

5E 0D 

0128 C2 01 FB 

04 


; Routine Size: 72 bytes, Routine Base: _PATSCODE + 0383 


nm = 
ewe 


OOoCooQoooooooooo°oo 


fo fofofofofololofoloeleleleleleleie] 


OOCOOCGCOCGCOOCOOCOooooO 


FPA PPYPYNED  — OOOO 
NSNOS NVM O SPWOF LONINO 


N14 
eet) ae ee See tt 


_PATSCODE ,NOWRT , 2 


PATSSHOW tat T Save R2 


pit 
eTs3CePy,” 


$ 
OUTPUT ~BUFFERST. PATSCP_OUT_STR 


PATSGL 


+i PAT$FAO_PUT 
PATSGL_ CSP_PTR, RO 


Ro 
#1, PATSPRINT_PATH 


™m 
bad 


P.AAN 
#i, PATSFAO_PUT 
#1, PATSOUT_PUT 


icH H.SRCIPATSSV. 832: es 
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GLOBAL ROUTINE PATSPV_TO_CS( PATH_VEC_PTR, OUTPUT_BUF ) : NOVALUE = 
bas 
} Functional Description: 


32 
R:C 


“Mw 
me 


Encode a pathname vector into a given vector 
so that what we have built is a counted string. 


Formal Parameters: 


PATH_VEC_PTR “A pointer to the pathname vector we 
want encoded. 


i 

i 

i 

i 

i 

i 

i 

‘ 

OUTPUT _BUF “A pointer to where we build the counted string. 
| Implicit Inputs: 

i We will encode up to TTY_OUTPUT_WIDTH characters. 
} The rest of the pathname vector is ignored. 

! Return Value: 

NOVALUE. 

; Side Effects: 

The pathname is encoded into the given buffer. 
= 


BEGIN 


= 


OUTPUT BUF : REF VECTORC,BYTE), 
PATH_VEC_PTR : REF PATHNAME_VECTOR; 


LOCAL 
CHAR COUNT, 
OUTPOT_PTR : REF VECTORC,BYTE); 


lee 
Make sure we are called with valid parameters. 


if (.PATH_VEC_PTR EQL 0) OR (.OUTPUT_BUF EQL 0) 

RETURN; 

lee 

! The size of the counted string we build starts off as 0. The first element 
in the string starts at the next character. 


CHAR COUNT = 0; 

OUTPOT_PTR = OUTPUT_BUFL1); 

'e¢ 

' Just encode the characters into the indicated position in the buffer until we 
! have exhausted the CS pointers in the pathname vector. 


RIPIPIPIMIAIRIMNPIPINPINIPIVPPONINIPIPINPIPUPDIPINIPSPIND 9 I tt I 2 tt = 
. 


CIPATSSV.B3209%" (10 


18-5 


SV 
v04-000 14-5 


iF (.1 NEQ 0) 
THEN 


ie 
R_ COUNT RCOD"= 4c* ree +1; 


CHA 
OUTPOT _PTRCO 
OUTPUT-PTR = .OUTPUT_PTR + 1; 


ae POT_PTR = .OUTPOT OPTR 


'ee 
i Now make the output buffer a 


ourput -BUFCO) = .CHAR_COUNT; 


oowovown oO 
SSSSSRSE 3 
ANAM AAAI AA IAAI AAAI AAAI AAA NANI WI WNW 
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=-9NIO-0o-07 


WOO "A191 


2 
Beer ead oiskica | PTR KSUNeMAStERSCbAT 


950 la= 

951 iNCR I FROM 0 TO MAX PATH_SIZE 

9 é dO 

9 BEGIN 

8e¢ ra CS_PTR : CS_POINTER 

956 peta . 

957 

958 14+ 

323 i! Terminate when the path vector ends. 
362 if ((CS_PTR = .PATH_VEC_PTRC.1]) EQL 0) 
96 XITLOOP; 

20? EXITLOO 

965 lee 

966 

967 !' iteration. 

968 -- 


4.0-742 


v= 


' Each element of the pathname vector 


iis a pointer to a counted string. 


i Output the pathname element separation character in all but the first 


is "tes if we have enough room left for the next pathname element. 
if (NOT .CHAR_COUNT + .CS_PTRCO] LSS TTY_OUT_WIDTH) 


THEN 
EXITL 

CHSMOVE( .CS toeREOI cs PTRCII, rey yr PTR ); 

CHAR_COUNT =~.CHAR COUNT ‘. cS Pr RCOJ i. 


real counted string. 


.ENTRY PATS$PV_TO CS, Save R2,.R3,R4,h2,R6,R7,RB,R9 
TSTL © PATH_VEC_ 

BEQL 

TSTL SUTPUT_BUF 

BEQL 

ADDL3 #1, OUTPUT_BUF, OUTPUT_PTR 


CLRQ. CHAR COUNT 
@PATR_VEC_PTRCIJ, CS_PTR 


ATCH.SRCIPATSSV. B32; r 
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2 
18-Sep-19 4 94:13:43 VAX=11 Bliss-32 V4.0-742 Page 32 
14-Sep-1984 12:52:4 DISKSVMSMASTER: CPATCH.SRCIJPATSSV.832;1 (11) 
3 o3e “9 ! GLOBAL ROUTINE PATSPRINT_PATH( PATH_VEC_PTR ) : NOVALUE = 
: eae t 1 le+ 
; 99 45 1 ! Functional Description: 
; 998 44 1! 
; 999 45 1! Encode a pathname vector into the output stream 
: 1000 4 23 
: 1001 47 1 ! Formal Parameters: 
r 1006 48 1! 
: 7 r+ ! PATH_VEC_PTR -A pointer to the pathname vector we want printed. 
: 1005 5 1! Implicit Inputs: 
1008 . 1] ° . 
: 1007 a 28 Some exterior routine has done all the setup for 
: 1908 2¢ } PATCH standard 1/0. This routine just does ‘puts’. 
3; 1010 56 1 ! Return Value: 
: 1011 57 1! 
3 a -— 3 NOVALUE. 
3 101 59 1! 
3 1014 260 1! Side Effects: 
; 1015 $0 1! 
3 ig 3262 1 : The pathname is encoded into the current output buffer. 
* ve . 
: 1018 3264 ‘Too 
3 1019 265 (1 
3; 1020 seg BEGIN 
: 1021 67 MA 
; 102 268 PATH_VEC_PTR : REF PATHNAME_VECTOR; 
; 19s 3269 
: 1024 3270 2 LOCAL 
1025 3571 5 SYM_BUFFER : VECTORE TTY_OUT_WIDTH, BYTE); 
: 1026 $558 
; Isr $55 ++ , 
; 1028 74 ' First encode the characters into our own buffer - because we have a routine 
3 1p $f? : that already knows how to do this. 
3 1031 77 2 PATSPV_TO_CS( .PATH_VEC_PTR, SYM_BUFFER ); 
3 1036 78 
: 103 79 'e¢ 
3 ioe $60 : Then simply output the pathname. 
: 1036 38¢ PATSFAO_PUT(UPLIT(ZASCIC '!AC'), SYM_BUFFER ); 
3; 1037 283 1 END; 
-PSECT _PATSPLIT,NOWRT ,NOEXE ,O 
43 41 21 03 00098 P.AAO: .ASCII <3>\!AC\ ; 


-PSECT _PATSCODE ,NOWRT ,2 


-ENTRY PATSTRINT PATH. Save nothing ; 3240 
MOVAB -132(SP), SP : 


se FFT CE” 9E 00002 


PAT 


£ 5 
PATSSV 16*Se 14 VAX=11 $-32 V4.0-742 PAT! 
04-000 1ergee13Be Paid tg We SAAS FERS eRe on cecaparssv.e32" asdio8 V04: 
SE DD 7 PUSHL SP ; 3277 
04 AC pp 9 PUSHE PATH VEC PTR : 
AO AF 02 FB 000g CALLS , PATSPV_TO_CS Fiona 
00000000' FE oF ‘ PUSHAB ; 
FBCB CCF 2 FB 0001 CALLS rs PATSFAO_PUT : 
04 0001D RET > 3283 


; Routine Size: 30 bytes, Routine Base: _PATSCODE + 041B 


1039 4 1 END 
1020 3388 0 ELUbom 
»-EXTRN LIBSSIGNAL 
PSECT SUMMARY 
Name Bytes Attributes 
_PATSCODE 1081 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, Se ee ar iencas 
s 683 0 NOVEC,NOWRT,NORD ;NOEXE -NOSHR, LCL, ABS, CON,NOPIC,ALIGN(0O) 
_PATSOWN 4 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
_PATSPLIT 156 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(O) 
Library Statistics 
onasanes Symbols -<------ Pages Processing 
File Total Loaded Percent Mapped Time 
.$255$DUA28: CSYSLIBILIB.L32;1 18619 4 0 1000 00:01.9 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/VARIANT:1/LIS=LIS$:PATSSV/OBJ=OBJ$:PATSSV MSRC$:PATSSV/UPDATE=(ENHS$:PATSSV) 
Size: 1081 ¢ $4 + 160 data bytes 
Run Time: 0: 0:35. 


Lines/CPU Min: 3589 

Seema Ae Ragle 34161 
nee" | Used: 227 pages 

Compilation Complete 
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